' ******************************************************************************
' swxJRNL.swj - journal recorded on 05/06/05 by Moi
' *****************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.OpenDoc6 ("E:\Maquette monte-charge\Dessins techniques\Sous-ensemble treuil et support.SLDDRW", 3, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Sous-ensemble treuil et support - Feuille1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().ZoomByFactor 0.970874
Part.ActiveView().ZoomByFactor 0.826446
Part.ActiveView().ZoomByFactor 0.806452
Part.ActiveView().ZoomByFactor 0.961538
Part.ActiveView().ZoomByFactor 0.735294
Part.ActiveView().ZoomByFactor 0.813008
Part.ActiveView().ZoomByFactor 0.854701
Part.ActiveView().ZoomByFactor 0.909091
Part.ActiveView().ZoomByFactor 0.970874
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1.04
Part.ActiveView().ZoomByFactor 1.09
Part.ActiveView().ZoomByFactor 1.08
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1.06
Part.ActiveView().ZoomByFactor 1.03
Part.ActiveView().ZoomByFactor 1.02
Part.ActiveView().ZoomByFactor 1.03
Part.ActiveView().ZoomByFactor 1.06
Part.ActiveView().ZoomByFactor 1.07
Part.ActiveView().ZoomByFactor 1.11
Part.ActiveView().ZoomByFactor 1.06
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1.02
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.970874
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 1
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1.02
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.943396
Part.ActiveView().ZoomByFactor 0.961538
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1
Part.ActiveView().ZoomByFactor 1.02
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1.01
boolstatus = Part.Extension.SelectByID("Objet de détail163@Vue de mise en plan2", "NOTE", 0.04183877130321, 0.0481496994224, 0, False, 0, Nothing)
Part.EditBalloonProperties 0, 2, 0, "1", 2, "1" 
boolstatus = Part.Extension.SelectByID("Objet de détail160@Vue de mise en plan2", "NOTE", 0.1752062769638, 0.04008311641874, 0, False, 0, Nothing)
Part.EditBalloonProperties 0, 2, 0, "2", 2, "2" 
boolstatus = Part.Extension.SelectByID("Objet de détail160@Vue de mise en plan2", "NOTE", 0.1735929603631, 0.04115866081922, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.1671396939601, 0.03040321681434, 0, False, 0, Nothing)
Part.ViewZoomtofit2
Part.ViewZoomTo2 0.0114579, 0.132529, -9.46185e-016, 0.2457, -0.0271816, 1.69069e-016
boolstatus = Part.Extension.SelectByID("Objet de détail160@Vue de mise en plan2", "NOTE", 0.1737937445519, 0.04524504831711, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail172@Vue de mise en plan2", "NOTE", 0.05279706456576, 0.2507473460714, 0, False, 0, Nothing)
Part.EditBalloonProperties 0, 2, 0, "3", 2, "1" 
boolstatus = Part.Extension.SelectByID("Objet de détail176@Vue de mise en plan2", "NOTE", 0.0848982245621, 0.1816063860793, 0, False, 0, Nothing)
Part.EditBalloonProperties 0, 2, 0, "4", 2, "1" 
boolstatus = Part.Extension.SelectByID("Objet de détail163@Vue de mise en plan2", "NOTE", 0.04099920234489, 0.04908621276111, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Vue de mise en plan2", "DRAWINGVIEW", 0.07200288678579, 0.09819824386662, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail176@Vue de mise en plan2", "NOTE", 0.01712910901428, 0.1135629016426, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Vue de mise en plan2", "DRAWINGVIEW", 0.01520852679228, 0.09847261275547, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail163@Vue de mise en plan2", "NOTE", 0.07968521567381, 0.1108192127541, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail175@Vue de mise en plan2", "NOTE", 0.03880425123403, 0.1023137771995, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail161@Vue de mise en plan2", "NOTE", 0.1271510334462, 0.03893456387338, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail162@Vue de mise en plan2", "NOTE", 0.09038560233925, 0.0523786394274, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail165@Vue de mise en plan2", "NOTE", 0.09642171789412, 0.09819824386662, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Vue de mise en plan2", "DRAWINGVIEW", 0.1049271534487, 0.1034112527549, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail175@Vue de mise en plan2", "NOTE", 0.08380074900667, 0.06527397720371, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail163@Vue de mise en plan2", "NOTE", 0.07858774011838, 0.07460251942486, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail175@Vue de mise en plan2", "NOTE", 0.1016347267824, 0.06362776387056, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail175@Vue de mise en plan2", "NOTE", 0.104378415671, 0.06582271498142, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail176@Vue de mise en plan2", "NOTE", 0.01904969123628, 0.1108192127541, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail163@Vue de mise en plan2", "NOTE", 0.08627006900639, 0.143743479417, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail163@Vue de mise en plan2", "NOTE", 0.08627006900639, 0.1462127994167, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail163@Vue de mise en plan2", "NOTE", 0.07941084678495, 0.06609708387028, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail176@Vue de mise en plan2", "NOTE", 0.03880425123403, 0.06472523942599, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail163@Vue de mise en plan2", "NOTE", 0.08133142900695, 0.1453896927501, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail163@Vue de mise en plan2", "NOTE", 0.07364910011894, 0.06582271498142, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail173@Vue de mise en plan2", "NOTE", 0.06733861567522, 0.1887399771896, 0, False, 0, Nothing)
Part.EditBalloonProperties 0, 2, 0, "(", 2, "2" 
Part.EditBalloonProperties 0, 2, 0, "5", 2, "2" 
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1847685001063, 0.187916870523, -0.05119934011606, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail171@Vue de mise en plan2", "NOTE", 0.03276813567916, 0.2694044305137, 0, False, 0, Nothing)
Part.EditBalloonProperties 0, 2, 0, "1", 2, "1" 
Part.EditBalloonProperties 0, 2, 0, "13", 2, "1" 
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.05334580234348, 0.2608989949592, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail168@Vue de mise en plan2", "NOTE", 0.1230355001133, 0.2603502571814, 0, False, 0, Nothing)
Part.EditBalloonProperties 0, 2, 0, "1", 2, "1" 
Part.EditBalloonProperties 0, 2, 0, "11", 2, "1" 
boolstatus = Part.Extension.SelectByID("Objet de détail169@Vue de mise en plan2", "NOTE", 0.09943977567155, 0.2658376349586, 0, False, 0, Nothing)
Part.EditBalloonProperties 0, 2, 0, "9", 2, "2" 
boolstatus = Part.Extension.SelectByID("Objet de détail174@Vue de mise en plan2", "NOTE", 0.06898482900836, 0.2724224882912, 0, False, 0, Nothing)
Part.EditBalloonProperties 0, 2, 0, "7", 2, "1" 
boolstatus = Part.Extension.SelectByID("Vue de mise en plan2", "DRAWINGVIEW", 0.02069590456943, 0.2307184171848, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail165@Vue de mise en plan2", "NOTE", 0.108219580115, 0.07871805275773, 0, False, 0, Nothing)
Part.EditBalloonProperties 0, 2, 0, "1", 2, "4" 
Part.EditBalloonProperties 0, 2, 0, "14", 2, "4" 
boolstatus = Part.Extension.SelectByID("Objet de détail175@Vue de mise en plan2", "NOTE", 0.1030065712267, 0.06445087053714, 0, False, 0, Nothing)
Part.EditBalloonProperties 0, 2, 0, "1", 2, "2" 
Part.EditBalloonProperties 0, 2, 0, "15", 2, "2" 
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.1068477356707, 0.03619087498481, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail162@Vue de mise en plan2", "NOTE", 0.1068477356707, 0.03728835054024, 0, False, 0, Nothing)
Part.EditBalloonProperties 0, 2, 0, "1", 2, "4" 
Part.EditBalloonProperties 0, 2, 0, "16", 2, "4" 
boolstatus = Part.Extension.SelectByID("Objet de détail161@Vue de mise en plan2", "NOTE", 0.135107731223, 0.03811145720681, 0, False, 0, Nothing)
Part.EditBalloonProperties 0, 2, 0, "1", 2, "6" 
Part.EditBalloonProperties 0, 2, 0, "17", 2, "6" 
boolstatus = Part.Extension.SelectByID("Objet de détail167@Vue de mise en plan2", "NOTE", 0.1556853978874, 0.2578809371817, 0, False, 0, Nothing)
Part.EditBalloonProperties 0, 2, 0, "6", 2, "2" 
boolstatus = Part.Extension.SelectByID("Objet de détail176@Vue de mise en plan2", "NOTE", 0.07803900234066, 0.1711803683027, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.07694152678523, 0.1698085238584, 0.006027328045775, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.07666715789637, 0.1700828927473, 0.006027328045718, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail176@Vue de mise en plan2", "NOTE", 0.07694152678523, 0.1673392038587, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.07694152678523, 0.1698085238584, 0.006027328045775, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail176@Vue de mise en plan2", "NOTE", 0.0758440512298, 0.1654186216367, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail176@Vue de mise en plan2", "NOTE", 0.07749026456295, 0.170631630525, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.09751919344955, 0.1906605594116, -0.004726747778875, False, 0, Nothing)
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Objet de détail185@Vue de mise en plan2", "NOTE", 0.1093170556704, 0.1072524171989, 0, False, 0, Nothing)
Part.EditBalloonProperties 0, 2, 1, "11", 2, "1" 
Part.EditBalloonProperties 0, 2, 0, "8", 2, "1" 
boolstatus = Part.Extension.SelectByID("Vue de mise en plan2", "DRAWINGVIEW", 0.01822658456971, 0.1286531905298, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Objet de détail163@Vue de mise en plan2", "NOTE", 0.06898482900836, 0.0633533949817, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail163@Vue de mise en plan2", "NOTE", 0.07639278900751, 0.1459384305278, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Vue de mise en plan2", "DRAWINGVIEW", 0.06816172234179, 0.1204221238641, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail163@Vue de mise en plan2", "NOTE", 0.06816172234179, 0.06692019053685, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail163@Vue de mise en plan2", "NOTE", 0.07611842011866, 0.1464871683055, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Vue de mise en plan2", "DRAWINGVIEW", 0.0486815312329, 0.09188775942289, 0, False, 0, Nothing)
Part.ViewZoomTo2 0.0876419, 0.18874, -9.41368e-016, 0.10383, 0.176393, -8.55152e-016
boolstatus = Part.Extension.SelectByID("Objet de détail175@Vue de mise en plan2", "NOTE", 0.0938661562115, 0.1870987779078, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.09753443616559, 0.1902937314162, -0.004844733707955, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.09755810248788, 0.1899387365819, -0.02567388220558, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0972267739759, 0.1859864607604, -0.03105108003524, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.09826809215641, 0.186033793405, -0.03093264355931, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail185@Vue de mise en plan2", "NOTE", 0.09755810248788, 0.1906250599282, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail164@Vue de mise en plan2", "NOTE", 0.2101340315846, 0.07865193271641, 0, False, 0, Nothing)
Part.EditBalloonProperties 0, 2, 0, "1", 2, "6" 
Part.EditBalloonProperties 0, 2, 0, "13", 2, "6" 
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.1446451794925, 0.02517582864118, 0, False, 0, Nothing)
Part.ViewZoomTo2 0.0677539, 0.10265, -8.29312e-016, 0.213552, 0.0351398, -3.57893e-016
boolstatus = Part.Extension.SelectByID("Objet de détail163@Vue de mise en plan2", "NOTE", 0.07659297066683, 0.1450983188143, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail175@Vue de mise en plan2", "NOTE", 0.1036796160816, 0.06634640529356, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail173@Vue de mise en plan2", "NOTE", 0.0174036343901, 0.1649116983307, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail160@Vue de mise en plan2", "NOTE", 0.1761614727934, 0.04578061896012, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail161@Vue de mise en plan2", "NOTE", 0.1360331092159, 0.04026296896822, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1470684091997, 0.1267897529321, 0.001365580428796, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.146566804655, 0.1272913574768, 0.00136558042874, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1463160023826, 0.1272913574768, 0.00136558042874, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1460652001103, 0.1272913574768, 0.001365580428796, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail161@Vue de mise en plan2", "NOTE", 0.146566804655, 0.1215229052125, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1463160023826, 0.1270405552044, 0.00136558042874, False, 0, Nothing)
Part.ViewZoomTo2 0.145062, 0.128545, -6.73117e-016, 0.15083, 0.119015, -6.06565e-016
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1465996210717, 0.1268431575951, 0.001365580428796, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail161@Vue de mise en plan2", "NOTE", 0.1465806549297, 0.1263690040453, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail161@Vue de mise en plan2", "NOTE", 0.1465616887878, 0.126862123737, 0, False, 0, Nothing)
Part.ActiveView().ZoomByFactor 0.925926
Part.ActiveView().ZoomByFactor 0.934579
Part.ActiveView().ZoomByFactor 0.595238
Part.ActiveView().ZoomByFactor 0.666667
Part.ActiveView().ZoomByFactor 0.70922
Part.ActiveView().ZoomByFactor 0.757576
Part.ActiveView().ZoomByFactor 0.787402
Part.ActiveView().ZoomByFactor 0.892857
Part.ActiveView().ZoomByFactor 0.961538
Part.ActiveView().ZoomByFactor 0.900901
Part.ActiveView().ZoomByFactor 0.78125
Part.ActiveView().ZoomByFactor 0.806452
Part.ActiveView().ZoomByFactor 0.775194
Part.ActiveView().ZoomByFactor 0.813008
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.884956
Part.ActiveView().ZoomByFactor 0.869565
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1.03
Part.ActiveView().ZoomByFactor 1.05
Part.ActiveView().ZoomByFactor 1.11
Part.ActiveView().ZoomByFactor 1.02
Part.ActiveView().ZoomByFactor 1.13
Part.ActiveView().ZoomByFactor 1.03
boolstatus = Part.Extension.SelectByID("Objet de détail162@Vue de mise en plan2", "NOTE", 0.1048869059759, 0.03903157230158, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.1005809748582, 0.0296368134993, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail166@Vue de mise en plan2", "NOTE", 0.1913969766135, 0.2539366799036, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail167@Vue de mise en plan2", "NOTE", 0.1549922862547, 0.2586340593048, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail168@Vue de mise en plan2", "NOTE", 0.1213277338799, 0.2605913007219, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail169@Vue de mise en plan2", "NOTE", 0.09862373344103, 0.2676373698236, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail169@Vue de mise en plan2", "NOTE", 0.1048869059759, 0.2621570938556, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail169@Vue de mise en plan2", "NOTE", 0.09666649202389, 0.2273181966305, 0, False, 0, Nothing)
Part.ViewZoomTo2 0.0931435, 0.266072, -1.24193e-015, 0.110759, 0.208529, -8.40113e-016
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.09782856759962, 0.2096451830105, -0.02789387223396, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail169@Vue de mise en plan2", "NOTE", 0.09782856759962, 0.213080579886, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.09782856759962, 0.2097596962397, -0.02789387223396, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail169@Vue de mise en plan2", "NOTE", 0.09759954114125, 0.2128515534276, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.09782856759962, 0.2097596962397, -0.02789387223396, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail169@Vue de mise en plan2", "NOTE", 0.0979430808288, 0.2131950931151, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail169@Vue de mise en plan2", "NOTE", 0.0979430808288, 0.2123935005109, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.09759954114125, 0.209988722698, -0.02789387223385, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail169@Vue de mise en plan2", "NOTE", 0.0979430808288, 0.2135386328027, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.09782856759962, 0.209988722698, -0.02789387223396, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.09778734813453, 0.2100492653791, -0.02823049689601, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail169@Vue de mise en plan2", "NOTE", 0.09766996873556, 0.2122794739596, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.0979047275335, 0.2097558168817, -0.02789387223396, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail169@Vue de mise en plan2", "NOTE", 0.09784603783402, 0.212455543058, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail169@Vue de mise en plan2", "NOTE", 0.09784603783402, 0.2126316121565, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.09796341723299, 0.2098145065812, -0.02789387223396, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.09796341723299, 0.2099318859802, -0.02789387223396, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.09785962815899, 0.2098623643366, -0.02789387223396, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.09787232376535, 0.2098496687302, -0.02789387223385, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.09783423694626, 0.2098623643366, -0.02789387223396, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail169@Vue de mise en plan2", "NOTE", 0.09783423694626, 0.2098115819111, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail169@Vue de mise en plan2", "NOTE", 0.107074834996, 0.262088927524, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.106320199652, 0.2563348330261, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail169@Vue de mise en plan2", "NOTE", 0.105011971059, 0.2626547077387, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail169@Vue de mise en plan2", "NOTE", 0.1058811678976, 0.2591779203844, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail174@Vue de mise en plan2", "NOTE", 0.06763650699943, 0.2730850698019, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail172@Vue de mise en plan2", "NOTE", 0.05459855442052, 0.2502686527888, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail171@Vue de mise en plan2", "NOTE", 0.03156483819777, 0.2704774792861, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail171@Vue de mise en plan2", "NOTE", 0.02873994847233, 0.2615682116905, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Vue de mise en plan2", "DRAWINGVIEW", 0.04851417655036, 0.243966975709, 0, False, 0, Nothing)
Part.ViewZoomTo2 0.085455, 0.202246, -2.53925e-016, 0.103056, 0.185948, -1.4012e-016
boolstatus = Part.Extension.SelectByID("Objet de détail166@Vue de mise en plan2", "NOTE", 0.1964479946306, 0.2594361786308, 0, False, 0, Nothing)
Part.EditBalloonProperties 0, 2, 0, "1", 2, "1" 
Part.EditBalloonProperties 0, 2, 0, "10", 2, "1" 
boolstatus = Part.Extension.SelectByID("Vue de mise en plan2", "DRAWINGVIEW", 0.202024909628, 0.2293828033674, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail166@Vue de mise en plan2", "NOTE", 0.193659537132, 0.2588165214088, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Objet de détail169@Vue de mise en plan2", "NOTE", 0.1044288971747, 0.2616049789075, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail174@Vue de mise en plan2", "NOTE", 0.0712772358017, 0.2622246361294, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail172@Vue de mise en plan2", "NOTE", 0.05516614803164, 0.2619148075185, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail168@Vue de mise en plan2", "NOTE", 0.1276660429969, 0.2612951502965, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail167@Vue de mise en plan2", "NOTE", 0.1583390754822, 0.2609853216856, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail166@Vue de mise en plan2", "NOTE", 0.193659537132, 0.2612951502965, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail171@Vue de mise en plan2", "NOTE", 0.02573242999018, 0.2619148075185, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.02294397249151, 0.2520002919677, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection2 True
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 2
swApp.LoadFile2 "E:\Maquette monte-charge\Assemblages\Treuil et support.SLDASM", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("E:\Maquette monte-charge\Assemblages\Treuil et support.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Treuil et support.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ViewZoomTo2 -0.0289956, 0.0332698, -2.09076e-016, -0.00847046, -0.00379806, 4.97674e-017
boolstatus = Part.Extension.SelectByID("", "FACE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Vis ŕ bois-7@Treuil et support", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Vis ŕ bois-6@Treuil et support", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Vis ŕ bois-1@Treuil et support", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Etape d'éclatement1", "EXPLODESTEPS", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Ecrou H, M3-2@Treuil et support", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Etape d'éclatement8", "EXPLODESTEPS", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.02500000000001, -0.005247755750645, -0.02295777984222, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Engrenage Droit Z10-1@Treuil et support", "COMPONENT", 0.02102688532176, 0.006722592755921, -0.01887093107564, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Engrenage Droit Z10-1@Treuil et support", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Etape d'éclatement10", "EXPLODESTEPS", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
Part.Save2 FALSE
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
Set Part = swApp.ActivateDoc ("Sous-ensemble treuil et support - Feuille1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ViewZoomTo2 0.095134, 0.192513, -3.81522e-016, 0.105358, 0.177022, -2.73346e-016
Part.ViewZoomTo2 0.077447, 0.285926, -1.7456e-015, 0.125691, 0.171117, -9.43896e-016
boolstatus = Part.Extension.SelectByID("Objet de détail174@Vue de mise en plan2", "NOTE", 0.08881253677985, 0.2634589736982, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail174@Vue de mise en plan2", "NOTE", 0.09985553873465, 0.2621261976002, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail169@Vue de mise en plan2", "NOTE", 0.1078521953226, 0.2625069907711, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail174@Vue de mise en plan2", "NOTE", 0.1095657645914, 0.2514639888163, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail169@Vue de mise en plan2", "NOTE", 0.08443341531502, 0.2644109566254, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail169@Vue de mise en plan2", "NOTE", 0.08367182897331, 0.2632685771128, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail169@Vue de mise en plan2", "NOTE", 0.08405262214417, 0.2649821463816, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.1112793338603, 0.2634589736982, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail174@Vue de mise en plan2", "NOTE", 0.1105177475186, 0.2625069907711, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail174@Vue de mise en plan2", "NOTE", 0.1086137816643, 0.2642205600399, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail168@Vue de mise en plan2", "NOTE", 0.130318992403, 0.2611742146731, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail167@Vue de mise en plan2", "NOTE", 0.15792649729, 0.2606030249168, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail166@Vue de mise en plan2", "NOTE", 0.1946730382775, 0.2592702488188, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail172@Vue de mise en plan2", "NOTE", 0.05473154798834, 0.2640301634545, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail171@Vue de mise en plan2", "NOTE", 0.02541047383251, 0.2640301634545, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail172@Vue de mise en plan2", "NOTE", 0.05473154798834, 0.2642205600399, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail173@Vue de mise en plan2", "NOTE", 0.01760421382998, 0.1088569463311, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Vue de mise en plan2", "DRAWINGVIEW", 0.02598166358879, 0.1172343960899, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.06463217043057, 0.1821596317207, -0.003952532300104, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail173@Vue de mise en plan2", "NOTE", 0.06520336018685, 0.1815884419644, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail173@Vue de mise en plan2", "NOTE", 0.06672653287027, 0.185396373673, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail185@Vue de mise en plan2", "NOTE", 0.1101369543477, 0.1086665497457, 0, False, 0, Nothing)
Part.ActiveView().ZoomByFactor 0.934579
Part.ActiveView().ZoomByFactor 0.746269
Part.ActiveView().ZoomByFactor 0.746269
Part.ActiveView().ZoomByFactor 0.729927
Part.ActiveView().ZoomByFactor 0.793651
Part.ActiveView().ZoomByFactor 0.884956
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1.04
Part.ActiveView().ZoomByFactor 1.13
Part.ActiveView().ZoomByFactor 1.17
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1.06
Part.ActiveView().ZoomByFactor 1.02
Part.ActiveView().ZoomByFactor 1.03
Part.ActiveView().ZoomByFactor 1.02
Part.ActiveView().ZoomByFactor 1
Part.ActiveView().ZoomByFactor 0.943396
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.877193
Part.ActiveView().ZoomByFactor 0.961538
Part.ActiveView().ZoomByFactor 0.961538
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.952381
Part.ActiveView().ZoomByFactor 0.961538
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 1
Part.ActiveView().ZoomByFactor 1
Part.ActiveView().ZoomByFactor 1.01
Part.ViewZoomTo2 0.223532, 0.0711273, -6.47397e-016, 0.401411, -0.00298901, -1.29846e-016
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1741534915096, 0.1178252653132, 0.09791765196883, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Vue de mise en plan2", "DRAWINGVIEW", 0.1845169192463, 0.09018945801542, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.229918602664, 0.03442434686106, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.2555804237262, 0.03541133997883, 0, False, 0, Nothing)
Part.EditTemplate
Part.EditSketch
Part.ClearSelection2 True
Part.ViewZoomTo2 0.202776, 0.108942, -1.29346e-015, 0.395733, -0.0677294, -5.97647e-017
boolstatus = Part.Extension.SelectByID("Objet de détail70@Fond de plan1", "NOTE", 0.2327465916511, 0.03364440951343, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail70@Fond de plan1", "NOTE", 0.231574639624, 0.03686727758789, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail70@Fond de plan1", "NOTE", 0.231574639624, 0.0377462416082, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Objet de détail56@Fond de plan1", "NOTE", 0.3144902455398, 0.05444655799406, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail102@Fond de plan1", "NOTE", 0.2339185436782, 0.06440815022422, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail102@Fond de plan1", "NOTE", 0.2347975076985, 0.06587309025807, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail101@Fond de plan1", "NOTE", 0.2550136801656, 0.06587309025807, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail101@Fond de plan1", "NOTE", 0.2523767881047, 0.06411516221745, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail100@Fond de plan1", "NOTE", 0.3112673774653, 0.06499412623776, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail100@Fond de plan1", "NOTE", 0.3112673774653, 0.06499412623776, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail99@Fond de plan1", "NOTE", 0.3684000387854, 0.06499412623776, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail99@Fond de plan1", "NOTE", 0.3795335830426, 0.06499412623776, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail99@Fond de plan1", "NOTE", 0.3795335830426, 0.06440815022422, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail99@Fond de plan1", "NOTE", 0.3795335830426, 0.06470113823099, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail105@Fond de plan1", "NOTE", 0.2544277041521, 0.07495571846792, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail105@Fond de plan1", "NOTE", 0.2544277041521, 0.07495571846792, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail104@Fond de plan1", "NOTE", 0.3124393294924, 0.07583468248823, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Objet de détail103@Fond de plan1", "NOTE", 0.373966810914, 0.07407675444761, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail103@Fond de plan1", "NOTE", 0.3771896789885, 0.076127670495, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.3991637794962, 0.07788559853561, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail103@Fond de plan1", "NOTE", 0.3988707914894, 0.07554169448146, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail103@Fond de plan1", "NOTE", 0.3953549354082, 0.08029017435759, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line194", "SKETCHSEGMENT", 0.3947689593946, 0.07876456255592, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail103@Fond de plan1", "NOTE", 0.3909601153066, 0.07700663451531, 0, False, 0, Nothing)
Part.ViewZoomTo2 0.351407, 0.0948789, -7.08592e-016, 0.422017, 0.0538606, -4.22162e-016
boolstatus = Part.Extension.SelectByID("Objet de détail103@Fond de plan1", "NOTE", 0.3782468345451, 0.07772475497342, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail103@Fond de plan1", "NOTE", 0.3758080871569, 0.07730726609769, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail103@Fond de plan1", "NOTE", 0.3954581760986, 0.07815751033074, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail123@Fond de plan1", "NOTE", 0.2560493504038, 0.08536572222631, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail123@Fond de plan1", "NOTE", 0.2560493504038, 0.08536572222631, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail124@Fond de plan1", "NOTE", 0.3051801352447, 0.08630602432853, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail124@Fond de plan1", "NOTE", 0.3051801352447, 0.08630602432853, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail124@Fond de plan1", "NOTE", 0.3047099841936, 0.08536572222631, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail125@Fond de plan1", "NOTE", 0.3693557537211, 0.08560079775187, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail126@Fond de plan1", "NOTE", 0.252288141995, 0.09359336562072, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail126@Fond de plan1", "NOTE", 0.2464112538561, 0.09406351667183, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail127@Fond de plan1", "NOTE", 0.3105868723325, 0.09335829009517, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail127@Fond de plan1", "NOTE", 0.3105868723325, 0.09359336562072, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail116@Fond de plan1", "NOTE", 0.2360679307317, 0.09335829009517, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail131@Fond de plan1", "NOTE", 0.3705311313489, 0.09359336562072, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail131@Fond de plan1", "NOTE", 0.3695908292467, 0.09547396982516, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail131@Fond de plan1", "NOTE", 0.3726468110789, 0.09805980060626, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail131@Fond de plan1", "NOTE", 0.3707662068745, 0.09829487613182, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail131@Fond de plan1", "NOTE", 0.3707662068745, 0.09688442297849, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail117@Fond de plan1", "NOTE", 0.2334820999506, 0.1044068397962, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail117@Fond de plan1", "NOTE", 0.2344224020528, 0.1051120663729, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail129@Fond de plan1", "NOTE", 0.2527582930461, 0.1053471418985, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail130@Fond de plan1", "NOTE", 0.3105868723325, 0.105582217424, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail128@Fond de plan1", "NOTE", 0.3695908292467, 0.1079329726796, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Objet de détail125@Fond de plan1", "NOTE", 0.3735871131811, 0.08583587327742, 0, False, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.3702960558234, 0.1058172929496, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("Objet de détail186@Fond de plan1", "NOTE", 0.3740572642322, 0.1048769908473, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail126@Fond de plan1", "NOTE", 0.2450343829207, 0.09491461600766, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail126@Fond de plan1", "NOTE", 0.2475530492659, 0.09415901610409, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail131@Fond de plan1", "NOTE", 0.3689527671059, 0.09617394918027, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Objet de détail186@Fond de plan1", "NOTE", 0.3679453005678, 0.104233681485, 0, False, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.3689527671059, 0.09516648264218, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("Objet de détail187@Fond de plan1", "NOTE", 0.3732344998928, 0.09441088273861, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail187@Fond de plan1", "NOTE", 0.3654266342226, 0.09516648264218, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail187@Fond de plan1", "NOTE", 0.369960233644, 0.0954183492767, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail187@Fond de plan1", "NOTE", 0.3661822341262, 0.09390714946957, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail187@Fond de plan1", "NOTE", 0.3656785008571, 0.09415901610409, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.3687009004714, 0.09441088273861, 0, False, 0, Nothing)

Dim Note As Object
Dim Annotation As Object
Dim TextFormat As Object
Set Note = Part.InsertNote("3 L=")
If Not Note is Nothing Then
   Note.Angle = 0
   boolstatus = Note.SetBalloon(0, 0)
   Set Annotation = Note.GetAnnotation()
   If Not Annotation is Nothing Then
      longstatus = Annotation.SetLeader2(False, 0, True, False, False, False)
      boolstatus = Annotation.SetPosition(0.3674415672988, 0.09692954908384, 0)

      Set TextFormat = Part.GetUserPreferenceTextFormat(swDetailingNoteTextFormat)
      TextFormat.Italic = False
      TextFormat.Underline = False
      TextFormat.Strikeout = False
      TextFormat.Bold = False
      TextFormat.Escapement = 0
      TextFormat.LineSpacing = 0.001
      TextFormat.CharHeightInPts = 13
      TextFormat.TypeFaceName = "Comic Sans MS"
      TextFormat.WidthFactor = 1
      TextFormat.ObliqueAngle = 0
      TextFormat.LineLength = 0
      TextFormat.Vertical = False
      TextFormat.BackWards = False
      TextFormat.UpsideDown = False
      TextFormat.CharSpacingFactor = 1
      boolstatus = Annotation.SetTextFormat(0, False, TextFormat)
   End If
End If
Part.ClearSelection2 True
Part.WindowRedraw

Part.SetPickMode
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Objet de détail187@Fond de plan1", "NOTE", 0.3659303674916, 0.09441088273861, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Objet de détail188@Fond de plan1", "NOTE", 0.3684490338369, 0.09491461600766, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail188@Fond de plan1", "NOTE", 0.3671897006642, 0.09491461600766, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail118@Fond de plan1", "NOTE", 0.2359671840779, 0.1160714133076, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail118@Fond de plan1", "NOTE", 0.2359671840779, 0.1160714133076, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail133@Fond de plan1", "NOTE", 0.2541015817635, 0.115315813404, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail134@Fond de plan1", "NOTE", 0.308756641455, 0.1145602135004, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail135@Fond de plan1", "NOTE", 0.3676934339333, 0.114812080135, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail188@Fond de plan1", "NOTE", 0.3825535653701, 0.09441088273861, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail119@Fond de plan1", "NOTE", 0.2352115841743, 0.1233755457087, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail136@Fond de plan1", "NOTE", 0.2541015817635, 0.1246348788813, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail136@Fond de plan1", "NOTE", 0.2541015817635, 0.1243830122468, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail139@Fond de plan1", "NOTE", 0.3676934339333, 0.1243830122468, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail188@Fond de plan1", "NOTE", 0.3722270333547, 0.09491461600766, 0, False, 0, Nothing)
Part.EditCopy
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.3732344998928, 0.1246348788813, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("Objet de détail139@Fond de plan1", "NOTE", 0.3676934339333, 0.1248867455159, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Objet de détail189@Fond de plan1", "NOTE", 0.3812942321975, 0.1231236790742, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail189@Fond de plan1", "NOTE", 0.3795311657559, 0.1261460786885, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail189@Fond de plan1", "NOTE", 0.3800348990249, 0.1261460786885, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail120@Fond de plan1", "NOTE", 0.2343099080479, 0.1333215952642, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail120@Fond de plan1", "NOTE", 0.2347917957415, 0.1338034829578, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail133@Fond de plan1", "NOTE", 0.2504531457836, 0.1145279752137, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail140@Fond de plan1", "NOTE", 0.2456342688475, 0.1345263144982, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail141@Fond de plan1", "NOTE", 0.3087615567094, 0.1338034829578, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail142@Fond de plan1", "NOTE", 0.3730935638053, 0.134767258345, 0, False, 0, Nothing)
Part.ViewZoomin
boolstatus = Part.Extension.SelectByID("Objet de détail135@Fond de plan1", "NOTE", 0.3772699238166, 0.1147086830988, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail135@Fond de plan1", "NOTE", 0.3764667776606, 0.1143071100208, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail143@Fond de plan1", "NOTE", 0.252380696558, 0.143019585098, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail143@Fond de plan1", "NOTE", 0.252380696558, 0.143019585098, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail189@Fond de plan1", "NOTE", 0.3716479007245, 0.1259527292829, 0, False, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Objet de détail145@Fond de plan1", "NOTE", 0.3712463276465, 0.143220371637, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.3712463276465, 0.143220371637, 0, True, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("Objet de détail190@Fond de plan1", "NOTE", 0.3752620584265, 0.14261801202, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail190@Fond de plan1", "NOTE", 0.3810848680576, 0.14462587741, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail121@Fond de plan1", "NOTE", 0.2345106945869, 0.143621944715, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail121@Fond de plan1", "NOTE", 0.2345106945869, 0.143621944715, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail122@Fond de plan1", "NOTE", 0.2351130542039, 0.154062844743, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail146@Fond de plan1", "NOTE", 0.256195640799, 0.153862058204, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail141@Fond de plan1", "NOTE", 0.3075969947832, 0.1333818312259, 0, False, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.3071954217052, 0.154464417821, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("Objet de détail191@Fond de plan1", "NOTE", 0.3142229505703, 0.152858125509, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail183@Fond de plan1", "NOTE", 0.249168111934, 0.1651061043881, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Objet de détail122@Fond de plan1", "NOTE", 0.2359162003599, 0.154464417821, 0, False, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.2339083349699, 0.1651061043881, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("Objet de détail146@Fond de plan1", "NOTE", 0.24997125809, 0.15466520436, 0, False, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.251376763863, 0.1628974524591, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("Objet de détail193@Fond de plan1", "NOTE", 0.255794067721, 0.1624958793811, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail193@Fond de plan1", "NOTE", 0.247361033083, 0.1655076774661, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail191@Fond de plan1", "NOTE", 0.3102072197902, 0.155468350516, 0, False, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.3094040736342, 0.1657084640051, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("Objet de détail194@Fond de plan1", "NOTE", 0.3130182313363, 0.1645037447711, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail189@Fond de plan1", "NOTE", 0.3808840815186, 0.1249487965879, 0, False, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.3716479007245, 0.1637005986151, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.3794785757456, 0.1637005986151, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail195@Fond de plan1", "NOTE", 0.3758644180435, 0.1628974524591, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail195@Fond de plan1", "NOTE", 0.3720494738025, 0.1665116101611, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail195@Fond de plan1", "NOTE", 0.3724510468805, 0.1661100370831, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail195@Fond de plan1", "NOTE", 0.3684353161005, 0.1667123967001, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail184@Fond de plan1", "NOTE", 0.2740656427701, 0.17, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail178@Fond de plan1", "NOTE", 0.2254753003319, 0.1743422851821, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail179@Fond de plan1", "NOTE", 0.2252745137929, 0.1843816121322, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail179@Fond de plan1", "NOTE", 0.2250737272538, 0.1839800390542, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail180@Fond de plan1", "NOTE", 0.2258768734099, 0.1924130736922, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail180@Fond de plan1", "NOTE", 0.2258768734099, 0.1924130736922, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail181@Fond de plan1", "NOTE", 0.2260776599489, 0.2030547602592, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail181@Fond de plan1", "NOTE", 0.2260776599489, 0.2030547602592, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail177@Fond de plan1", "NOTE", 0.2246721541758, 0.1641021716931, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail178@Fond de plan1", "NOTE", 0.2252745137929, 0.1741414986431, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail179@Fond de plan1", "NOTE", 0.2238690080198, 0.1839800390542, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail179@Fond de plan1", "NOTE", 0.2244713676368, 0.1839800390542, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail180@Fond de plan1", "NOTE", 0.2260776599489, 0.1926138602312, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail180@Fond de plan1", "NOTE", 0.2260776599489, 0.1926138602312, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.2254753003319, 0.2048618391103, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail181@Fond de plan1", "NOTE", 0.2254753003319, 0.2036571198762, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail182@Fond de plan1", "NOTE", 0.2250737272538, 0.2116885814363, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail192@Fond de plan1", "NOTE", 0.2341091215089, 0.1647045313101, 0, False, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.2351130542039, 0.1733383524871, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.2355146272819, 0.1865902640612, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.2353138407429, 0.1928146467702, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.2353138407429, 0.2048618391103, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.2369201330549, 0.2138972333653, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("Objet de détail196@Fond de plan1", "NOTE", 0.2349122676649, 0.1723344197921, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail196@Fond de plan1", "NOTE", 0.2347114811259, 0.1755470044161, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail184@Fond de plan1", "NOTE", 0.2435460888419, 0.1735391390261, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail184@Fond de plan1", "NOTE", 0.2447508080759, 0.1741414986431, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail144@Fond de plan1", "NOTE", 0.3094040736342, 0.143621944715, 0, False, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.3067938486272, 0.1743422851821, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.3073962082442, 0.1839800390542, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.3063922755492, 0.1958264448552, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.3059907024712, 0.2024524006422, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.3069946351662, 0.2149011660603, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("Objet de détail201@Fond de plan1", "NOTE", 0.3114119390242, 0.1729367794091, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail202@Fond de plan1", "NOTE", 0.3096048601732, 0.1829761063591, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail203@Fond de plan1", "NOTE", 0.3084001409392, 0.1948225121602, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail204@Fond de plan1", "NOTE", 0.3088017140172, 0.2, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail205@Fond de plan1", "NOTE", 0.3088017140172, 0.2128933006703, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail184@Fond de plan1", "NOTE", 0.248364965778, 0.1745430717211, 0, False, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.248364965778, 0.1851847582882, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("Objet de détail206@Fond de plan1", "NOTE", 0.255191708104, 0.1839800390542, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail206@Fond de plan1", "NOTE", 0.2479633927, 0.1843816121322, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail206@Fond de plan1", "NOTE", 0.252179910019, 0.1841808255932, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail206@Fond de plan1", "NOTE", 0.252581483097, 0.1839800390542, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail206@Fond de plan1", "NOTE", 0.26402631582, 0.1851847582882, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.3706439680295, 0.1833776794372, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail135@Fond de plan1", "NOTE", 0.3700416084125, 0.1141063234818, 0, False, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.3678329564835, 0.1863894775222, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("Objet de détail207@Fond de plan1", "NOTE", 0.3712463276465, 0.1855863313662, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail207@Fond de plan1", "NOTE", 0.3666282372495, 0.1853855448272, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail207@Fond de plan1", "NOTE", 0.3738565526535, 0.1855863313662, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail207@Fond de plan1", "NOTE", 0.3917265546246, 0.1847831852102, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail207@Fond de plan1", "NOTE", 0.3808840815186, 0.1841808255932, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail207@Fond de plan1", "NOTE", 0.3911241950076, 0.1841808255932, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail207@Fond de plan1", "NOTE", 0.3921281277026, 0.1835784659762, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail206@Fond de plan1", "NOTE", 0.2552977233966, 0.1863999184222, 0, False, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.2511342137239, 0.1933391012101, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("Objet de détail208@Fond de plan1", "NOTE", 0.2632777836026, 0.1933391012101, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail207@Fond de plan1", "NOTE", 0.3718759942328, 0.1846651227252, 0, False, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.3808969318571, 0.1954208560464, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("Objet de détail209@Fond de plan1", "NOTE", 0.394081379154, 0.195073896907, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail209@Fond de plan1", "NOTE", 0.3885300329237, 0.1940330194889, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail209@Fond de plan1", "NOTE", 0.3888769920631, 0.1943799786282, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.2611960287663, 0.2054826710888, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail197@Fond de plan1", "NOTE", 0.2348271341724, 0.1850120818646, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail197@Fond de plan1", "NOTE", 0.2362149707299, 0.1850120818646, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail197@Fond de plan1", "NOTE", 0.2372558481481, 0.185359041004, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail198@Fond de plan1", "NOTE", 0.2348271341724, 0.1926451829313, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail198@Fond de plan1", "NOTE", 0.2358680115905, 0.195073896907, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail198@Fond de plan1", "NOTE", 0.2365619298693, 0.1961147743252, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail180@Fond de plan1", "NOTE", 0.2251122782693, 0.1936860603495, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.2580733965117, 0.2044417936707, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail208@Fond de plan1", "NOTE", 0.2563386008148, 0.1954208560464, 0, False, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.2570325190935, 0.2044417936707, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("Objet de détail210@Fond de plan1", "NOTE", 0.2660534567178, 0.2030539571131, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail210@Fond de plan1", "NOTE", 0.2525220502814, 0.2054826710888, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.3687533619783, 0.2068705076464, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail209@Fond de plan1", "NOTE", 0.376386463045, 0.195073896907, 0, False, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Line210", "SKETCHSEGMENT", 0.3739577490692, 0.208258344204, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.3732638307904, 0.2058296302282, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.3822847684146, 0.2061765893676, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail211@Fond de plan1", "NOTE", 0.3819378092752, 0.2054826710888, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.3743047082086, 0.2068705076464, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail211@Fond de plan1", "NOTE", 0.3694472802571, 0.206523548507, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail210@Fond de plan1", "NOTE", 0.2643186610208, 0.2034009162525, 0, False, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.2615429879057, 0.2134627312949, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("Objet de détail212@Fond de plan1", "NOTE", 0.2667473749966, 0.2127688130161, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.2022129750694, 0.2353211570767, 0, False, 0, Nothing)
Part.EditSheet
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
Part.ViewZoomTo2 0.0460814, 0.195768, -8.24584e-016, 0.0762668, 0.170787, -6.50142e-016
boolstatus = Part.Extension.SelectByID("Vue de mise en plan2", "DRAWINGVIEW", 0.02483235601294, 0.1858731239457, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.01882094221111, 0.257190351322, 0, False, 0, Nothing)
Part.EditTemplate
Part.EditSketch
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Objet de détail199@Fond de plan1", "NOTE", 0.2349585929953, 0.2033608731874, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail212@Fond de plan1", "NOTE", 0.2521730961551, 0.2140174703816, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail200@Fond de plan1", "NOTE", 0.2368713155686, 0.2123779938902, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail200@Fond de plan1", "NOTE", 0.2360515773229, 0.2123779938902, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.3693956652909, 0.2151104547092, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("Objet de détail213@Fond de plan1", "NOTE", 0.3748605869289, 0.2137442242997, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail213@Fond de plan1", "NOTE", 0.3680294348814, 0.215656946873, 0, False, 0, Nothing)
Part.ViewZoomTo2 0.368849, 0.230685, -7.92503e-016, 0.403278, 0.19489, -5.42546e-016
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.373004054263, 0.2248680133851, 0, False, 0, Nothing)
Part.EditSheet
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
Part.Save2 FALSE
swApp.LoadFile2 "E:\Maquette monte-charge\Pičces\Rondelle plate M3.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("E:\Maquette monte-charge\Pičces\Rondelle plate M3.SLDPRT", 1, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Rondelle plate M3.SLDPRT")
boolstatus = Part.Extension.SelectByID("Plan1", "PLANE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Esquisse1", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.EditSketch
Part.ClearSelection2 True
Part.ShowNamedView2 "*Dessus", 5
Part.ShowNamedView2 "*Droite", 4
Part.ShowNamedView2 "*Dessus", 5
Part.ViewZoomTo2 -0.0142634, 0.00532515, 0.00257797, 0.00790532, -0.00608052, 0.00257797
boolstatus = Part.Extension.SelectByID("D2@Esquisse1@Rondelle plate M3.SLDPRT", "DIMENSION", -0.0120534913726, 0.002577969471374, -0.0005685270835217, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D2@Esquisse1@Rondelle plate M3.SLDPRT", "DIMENSION", -0.0096865874669, 0.002577969471374, 0.00416528072788, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Esquisse1@Rondelle plate M3.SLDPRT", "DIMENSION", -0.0296184098307, 0.002577969471374, 0.0004280640346682, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D1@Esquisse1@Rondelle plate M3.SLDPRT", "DIMENSION", -0.01105690025441, 0.002577969471374, 0.01761926082344, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D2@Esquisse1@Rondelle plate M3.SLDPRT", "DIMENSION", 0.01585105993672, 0.002577969471374, -0.01788429776207, False, 0, Nothing)
Part.Parameter("D2@Esquisse1").SystemValue = 0.004
Part.EditRebuild
Part.ClearSelection2 True
Part.EditRebuild
Part.ShowNamedView2 "*Face", 1
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "Rondelle plate M3.SLDPRT"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Sous-ensemble treuil et support - Feuille1")
Part.EditSketch
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
Set Part = swApp.ActivateDoc ("Treuil et support.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().ZoomByFactor 0.952381
Part.ActiveView().ZoomByFactor 0.8
Part.ActiveView().ZoomByFactor 0.833333
Part.ActiveView().ZoomByFactor 0.833333
Part.ActiveView().ZoomByFactor 0.840336
Part.ActiveView().ZoomByFactor 0.952381
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1.02
Part.ActiveView().RotateAboutCenter -0.835226, 0.0109409
Part.ActiveView().RotateAboutCenter -0.00938456, 0
Part.ActiveView().RotateAboutCenter 0.00938456, 0
Part.ActiveView().RotateAboutCenter 0.0938456, 0
Part.ActiveView().RotateAboutCenter 0.084461, 0
Part.ActiveView().RotateAboutCenter 0.084461, 0
Part.ActiveView().RotateAboutCenter 0.10323, 0
Part.ActiveView().RotateAboutCenter 0.131384, 0
Part.ActiveView().RotateAboutCenter 0.10323, -0.0109409
Part.ActiveView().RotateAboutCenter 0.10323, -0.0109409
Part.ActiveView().RotateAboutCenter 0.0750765, -0.0109409
Part.ActiveView().RotateAboutCenter 0.0469228, 0
Part.ActiveView().RotateAboutCenter 0.0187691, 0
Part.ActiveView().RotateAboutCenter 0.00938456, 0
Part.ActiveView().RotateAboutCenter -0.00938456, 0
Part.ActiveView().RotateAboutCenter -0.0375382, 0
Part.ActiveView().RotateAboutCenter -0.00938456, 0
Part.ActiveView().RotateAboutCenter 0.00938456, 0
Part.ActiveView().RotateAboutCenter 0.00938456, 0
Part.Save2 FALSE
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "Treuil et support.SLDASM"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Sous-ensemble treuil et support - Feuille1")
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "Sous-ensemble treuil et support - Feuille1"
Set Part = swApp.OpenDoc6 ("E:\Maquette monte-charge\Assemblages\Bâti.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Bâti.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "Bâti.SLDASM"
Set Part = swApp.OpenDoc6 ("E:\Maquette monte-charge\Assemblages\Cabine.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Cabine.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
' MSGBOX
' Certains des modčles référencés dans ce document ont été modifiés. Ils doivent ętre enregistrés lorsque le document est enregistré.
' 		Enregistrer le document et les modčles référencés maintenant ?

Part.Save2 FALSE
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "Cabine.SLDASM"
Set Part = swApp.OpenDoc6 ("E:\Maquette monte-charge\Assemblages\Chariot cabine.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Chariot cabine.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().RotateAboutCenter 0, 0.0109409
Part.ActiveView().RotateAboutCenter -0.0187691, 0
Part.ActiveView().RotateAboutCenter -0.0187691, 0.0218817
Part.ActiveView().RotateAboutCenter -0.0187691, 0.0218817
Part.ActiveView().RotateAboutCenter -0.00938456, 0.0328226
Part.ActiveView().RotateAboutCenter -0.00938456, 0.0218817
Part.ActiveView().RotateAboutCenter -0.00938456, 0.0328226
Part.ActiveView().RotateAboutCenter -0.0187691, 0.0218817
Part.ActiveView().RotateAboutCenter -0.00938456, 0.0218817
Part.ActiveView().RotateAboutCenter -0.00938456, 0.0218817
Part.ActiveView().RotateAboutCenter -0.00938456, 0.0218817
Part.ActiveView().RotateAboutCenter -0.0187691, 0.0109409
Part.ActiveView().RotateAboutCenter 0, 0.0109409
Part.ActiveView().RotateAboutCenter -0.00938456, 0
Part.ActiveView().RotateAboutCenter 0, 0.0218817
Part.ActiveView().RotateAboutCenter -0.00938456, 0.0109409
Part.ActiveView().RotateAboutCenter -0.00938456, 0.0109409
Part.ActiveView().RotateAboutCenter -0.00938456, 0.0218817
Part.ActiveView().RotateAboutCenter -0.0375382, 0.0547043
Part.ActiveView().RotateAboutCenter -0.00938456, 0.0328226
Part.ActiveView().RotateAboutCenter -0.0187691, 0.0437635
Part.ActiveView().RotateAboutCenter -0.00938456, 0.0328226
Part.ActiveView().RotateAboutCenter -0.00938456, 0.0437635
Part.ActiveView().RotateAboutCenter -0.00938456, 0.0437635
Part.ActiveView().RotateAboutCenter -0.0187691, 0.0656452
Part.ActiveView().RotateAboutCenter -0.00938456, 0.0328226
Part.ActiveView().RotateAboutCenter -0.00938456, 0.0218817
Part.ActiveView().RotateAboutCenter -0.00938456, 0.0109409
Part.ActiveView().RotateAboutCenter -0.00938456, 0.0218817
Part.ActiveView().RotateAboutCenter -0.00938456, 0.0109409
Part.ActiveView().RotateAboutCenter -0.00938456, 0
Part.ActiveView().RotateAboutCenter -0.00938456, 0.0109409
Part.ActiveView().RotateAboutCenter -0.0187691, 0.0109409
Part.ActiveView().RotateAboutCenter -0.00938456, 0.0109409
Part.ActiveView().RotateAboutCenter -0.00938456, 0.0109409
Part.ActiveView().RotateAboutCenter -0.00938456, 0
Part.ActiveView().RotateAboutCenter -0.00938456, 0
Part.ActiveView().RotateAboutCenter -0.00938456, 0
Part.ActiveView().RotateAboutCenter -0.00938456, 0
Part.ActiveView().RotateAboutCenter -0.00938456, 0
Part.ActiveView().RotateAboutCenter 0, -0.0109409
Part.ActiveView().RotateAboutCenter 0.0187691, -0.0218817
Part.ActiveView().RotateAboutCenter 0.0187691, -0.0328226
Part.ActiveView().RotateAboutCenter 0.0281537, -0.0437635
Part.ActiveView().RotateAboutCenter 0.0375382, -0.0547043
Part.ActiveView().RotateAboutCenter 0.0469228, -0.0765861
Part.ActiveView().RotateAboutCenter 0.0187691, -0.0437635
Part.ActiveView().RotateAboutCenter 0.0187691, -0.0328226
Part.ActiveView().RotateAboutCenter 0.0187691, -0.0328226
Part.ActiveView().RotateAboutCenter 0.00938456, -0.0328226
Part.ActiveView().RotateAboutCenter 0.00938456, -0.0218817
Part.ActiveView().RotateAboutCenter 0.0187691, -0.0328226
Part.ActiveView().RotateAboutCenter 0.00938456, -0.0109409
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "Chariot cabine.SLDASM"
Set Part = swApp.OpenDoc6 ("E:\Maquette monte-charge\Assemblages\Maquette monte-charge.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Maquette monte-charge.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "Maquette monte-charge.SLDASM"
Set Part = swApp.OpenDoc6 ("E:\Maquette monte-charge\Dessins techniques\Cabine éclaté.SLDDRW", 3, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Cabine éclaté - Feuille1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "Cabine éclaté - Feuille1"
Set Part = swApp.OpenDoc6 ("E:\Maquette monte-charge\Dessins techniques\Sous-ensemble treuil et support.SLDDRW", 3, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Sous-ensemble treuil et support - Feuille1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = Nothing
swApp.CloseDoc "Sous-ensemble treuil et support - Feuille1"
Set Part = swApp.OpenDoc6 ("E:\Maquette monte-charge\Assemblages\Maquette monte-charge.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Maquette monte-charge.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("Bâti-1@Maquette monte-charge/Rondelle plate M8-5@Bâti", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Bâti-1@Maquette monte-charge/Ecrou H, M3-5@Bâti", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Bâti-1@Maquette monte-charge/Platine de commande-1@Bâti/Bouton poussoir-1@Platine de commande", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Bâti-1@Maquette monte-charge/Platine de commande-1@Bâti/Ecrou H, M8-1@Platine de commande", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Bâti-1@Maquette monte-charge/Platine de commande-1@Bâti/Ecrou H, M8-2@Platine de commande", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Bâti-1@Maquette monte-charge/Vis ŕ bois-1@Bâti", "COMPONENT", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
Part.ViewZoomTo2 -0.232245, 0.0911041, -0.197341, -0.102503, -0.0347063, -0.197341
Part.ViewZoomTo2 -0.0335542, 0.0450199, -0.197341, 0.00307813, 0.00464955, -0.197341
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "Maquette monte-charge.SLDASM"
Set Part = swApp.OpenDoc6 ("E:\Maquette monte-charge\Dessins techniques\Sous-ensemble treuil et support.SLDDRW", 3, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Sous-ensemble treuil et support - Feuille1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ViewZoomtofit2
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.2757631578947, 0.2458921052632, 0, False, 0, Nothing)
Part.EditTemplate
Part.EditSketch
Part.ClearSelection2 True
Part.ViewZoomTo2 0.184947, 0.250903, -1.77278e-015, 0.436726, -0.0221711, 1.3408e-016
Part.ViewZoomTo2 0.200339, 0.23777, -1.6265e-015, 0.435826, -0.00767958, 8.74601e-017
boolstatus = Part.Extension.SelectByID("Objet de détail73@Fond de plan1", "NOTE", 0.2252758722318, 0.05500565114696, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.2248688252752, 0.2141610111773, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail182@Fond de plan1", "NOTE", 0.2252758722318, 0.2129398703075, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail200@Fond de plan1", "NOTE", 0.2358590931033, 0.2137539642207, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.2659805678917, 0.2166032929169, 0, True, 0, Nothing)
Part.DeSelectByID "Fond de plan1", "SHEET", 0.2647594270219, 0.2166032929169, 0
boolstatus = Part.Extension.SelectByID("Objet de détail212@Fond de plan1", "NOTE", 0.2647594270219, 0.2153821520471, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail205@Fond de plan1", "NOTE", 0.3095345922478, 0.2149751050905, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail213@Fond de plan1", "NOTE", 0.3705916357377, 0.2170103398735, 0, True, 0, Nothing)
Part.ViewZoomTo2 0.200446, 0.0855342, -4.81339e-016, 0.425543, 0.0191855, -1.80289e-017
Part.ViewZoomTo2 0.20275, 0.0811551, -7.56836e-016, 0.43377, 0.0380445, -4.55796e-016
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Objet de détail73@Fond de plan1", "NOTE", 0.224365591707, 0.05537793968866, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail58@Fond de plan1", "NOTE", 0.2348358222819, 0.05470244094189, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail57@Fond de plan1", "NOTE", 0.2635445190195, 0.05470244094189, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail56@Fond de plan1", "NOTE", 0.3091406844262, 0.05504019031527, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail55@Fond de plan1", "NOTE", 0.3722998172489, 0.05537793968866, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail74@Fond de plan1", "NOTE", 0.2250410904538, 0.06517267151677, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail102@Fond de plan1", "NOTE", 0.2341603235351, 0.06517267151677, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail101@Fond de plan1", "NOTE", 0.2493590453374, 0.06584817026353, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail100@Fond de plan1", "NOTE", 0.3040744438254, 0.06449717277, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail99@Fond de plan1", "NOTE", 0.3675713260215, 0.06584817026353, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail59@Fond de plan1", "NOTE", 0.2257165892005, 0.0766561502118, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail115@Fond de plan1", "NOTE", 0.2348358222819, 0.07598065146503, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail105@Fond de plan1", "NOTE", 0.2544252859381, 0.07598065146503, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail103@Fond de plan1", "NOTE", 0.3739885641158, 0.07631840083841, 0, True, 0, Nothing)
Part.DeSelectByID "Objet de détail103@Fond de plan1", "NOTE", 0.3719620678755, 0.0766561502118, 0
boolstatus = Part.Extension.SelectByID("Objet de détail105@Fond de plan1", "NOTE", 0.2662465140065, 0.0746296539715, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail75@Fond de plan1", "NOTE", 0.23, 0.08543902335315, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail106@Fond de plan1", "NOTE", 0.2350712959078, 0.08592780972991, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail123@Fond de plan1", "NOTE", 0.2512012463407, 0.08592780972991, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail124@Fond de plan1", "NOTE", 0.312299543435, 0.08446145059964, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail125@Fond de plan1", "NOTE", 0.3645996857477, 0.0849502369764, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line195", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line196", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail76@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail116@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail126@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail127@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail188@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line196", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail77@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail117@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail129@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail130@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail186@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Objet de détail78@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail118@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail133@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail134@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail135@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.4154334689302, 0.1206316424795, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line198", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line199", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail79@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail119@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail136@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail137@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail189@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Objet de détail140@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line199", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail80@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail120@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail140@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail141@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail142@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line200", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line201", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail81@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail121@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail143@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail144@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail190@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.4173886144372, 0.1524027569685, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail191@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.1832599399718, 0.1646224163874, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail82@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail122@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail146@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail191@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.1832599399718, 0.1724429984155, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line204", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line205", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail177@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail192@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail193@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail194@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail195@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line205", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail178@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail184@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail196@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail201@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line208", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail179@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail202@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail206@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail207@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line209", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail180@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail198@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail203@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail208@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail209@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line209", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail181@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail199@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail204@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail210@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail211@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line210", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line177", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail182@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail200@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail205@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail212@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail213@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.1866814446091, 0.2359852273935, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line178", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail59@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail66@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail73@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail74@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail75@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail76@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail77@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail78@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail79@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail80@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail81@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail82@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail177@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail178@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail179@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail180@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail181@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail182@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.2311610048937, 0.2320749363795, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail58@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail102@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail106@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail115@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail116@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail117@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail118@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail119@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail120@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail121@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail122@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail192@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail196@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail197@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail198@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail199@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.230672218517, 0.2315861500028, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail58@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail102@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail106@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail115@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail116@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail117@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail118@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail119@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail120@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail121@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail122@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail192@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail196@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail197@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail198@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail199@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail200@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.2428918779358, 0.227187072612, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail101@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail123@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail126@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail129@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail133@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail136@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail143@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail146@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail210@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.2375152277915, 0.25309275058, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail57@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail101@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail123@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail126@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail129@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail133@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail136@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail140@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail143@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail146@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail193@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail210@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail212@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.234582509531, 0.2477161004357, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail57@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail58@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail101@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail102@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail106@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail115@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail116@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail117@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail118@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail119@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail120@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail121@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail122@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail123@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail126@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail129@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail133@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail136@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail140@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail143@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail146@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail192@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail193@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail196@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail197@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail198@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail199@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail200@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail210@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail212@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.200986114005, 0.1816743935112, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.2360683748151, 0.2291912858301, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail57@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail101@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail105@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail123@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail126@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail129@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail133@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail136@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail140@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail143@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail146@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail184@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail193@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail206@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail208@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail210@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail212@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.3008580379873, 0.2284245442541, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail56@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail100@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail124@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail127@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail130@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail134@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail137@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail141@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail144@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail191@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail194@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail201@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail202@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail203@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail204@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail205@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.3606638809155, 0.2295746566181, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail55@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail99@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail125@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail135@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail142@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail186@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail188@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail189@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail190@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail195@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail207@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail209@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail211@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail213@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.2801560154352, 0.2299580274061, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.231467925359, 0.2334083644981, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail58@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail102@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail106@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail115@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail116@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail117@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail118@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail119@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail120@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail121@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail122@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail192@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail196@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail197@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail198@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail199@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail200@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail200@Fond de plan1", "NOTE", 0.2364517456031, 0.215389937462, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.2337681500871, 0.2291912858301, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.208849048867, 0.2303413981941, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail182@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail200@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail205@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail212@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail213@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.2007982623189, 0.213473083522, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line209", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line210", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail181@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail199@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail204@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail210@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail211@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.208082307291, 0.201205218306, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line208", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line209", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail180@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail198@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail203@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail208@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail209@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.2053987117749, 0.1916209486059, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line206", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line208", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail179@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail197@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail202@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail206@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail207@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.207698936503, 0.1831867912699, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line205", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line206", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail178@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail184@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail196@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail201@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.213449498323, 0.1713022968418, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line204", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line205", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail177@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail192@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail193@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail194@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail195@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.210382532019, 0.1628681395058, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line204", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail82@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail122@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail146@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail191@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.2042485994109, 0.1559674653218, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line200", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line201", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail81@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail121@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail143@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail144@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail190@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.2007982623189, 0.1452330832577, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line199", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line200", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail80@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail120@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail140@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail141@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail142@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.211149273595, 0.1310483641017, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line198", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line199", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail79@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail119@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail136@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail137@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail189@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.208465678079, 0.1214640944017, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line197", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line198", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail78@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail118@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail133@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail134@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail135@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.208082307291, 0.1141800494296, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line196", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line197", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail77@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail117@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail129@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail130@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail186@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.211532644383, 0.1026789257896, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line195", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line196", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail76@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail116@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail126@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail127@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail188@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.2038652286229, 0.09194454372554, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line194", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line195", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail75@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail106@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail123@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail124@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail125@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.209999161231, 0.08312701560151, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line193", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line194", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail59@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail103@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail105@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail115@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.1954310712869, 0.09002768978553, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.210382532019, 0.07315937511347, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line192", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line193", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail74@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail99@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail100@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail101@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail102@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.2050153409869, 0.06434184698943, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line192", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line174", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail55@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail56@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail57@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail58@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail73@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.1781793858268, 0.08696072348152, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.207315565715, 0.08772746505752, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail59@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail75@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail105@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail106@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail115@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail123@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.2057820825629, 0.08312701560151, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.206548824139, 0.0819769032375, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.212299385959, 0.0827436448135, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail59@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail105@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail115@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail105@Fond de plan1", "NOTE", 0.2632877007632, 0.07315937511347, 0, False, 0, Nothing)
Part.ClearSelection2 True
Part.EditUndo 1
boolstatus = Part.Extension.SelectByID("Objet de détail59@Fond de plan1", "NOTE", 0.226867475903, 0.07507622905348, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail59@Fond de plan1", "NOTE", 0.224238424533, 0.07674355602326, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail59@Fond de plan1", "NOTE", 0.2253808247396, 0.07628659594065, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail59@Fond de plan1", "NOTE", 0.2261805048841, 0.07594387587869, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail115@Fond de plan1", "NOTE", 0.236462106743, 0.07514419573411, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail115@Fond de plan1", "NOTE", 0.2345200263919, 0.07594387587869, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.2166985831699, 0.0793710764983, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail59@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail75@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail105@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail106@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail115@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail123@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.2018336716824, 0.07333234900654, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.2110459869479, 0.07991257419619, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail59@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail105@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail115@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.2011756491635, 0.07629345034189, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.3918376740336, 0.09257950768627, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail188@Fond de plan1", "NOTE", 0.3770321673569, 0.09455357524317, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.3875605276603, 0.1244935998561, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail189@Fond de plan1", "NOTE", 0.3753871110595, 0.1244935998561, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail190@Fond de plan1", "NOTE", 0.3773611786163, 0.1437407585358, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail195@Fond de plan1", "NOTE", 0.3653522676452, 0.1647974791427, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.3271869615453, 0.07366136026603, 0, False, 0, Nothing)
Part.EditSheet
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
Part.ViewZoomtofit2
Part.ViewZoomTo2 0.0881221, 0.214429, -7.96118e-016, 0.108521, 0.185191, -5.9195e-016
boolstatus = Part.Extension.SelectByID("Objet de détail169@Vue de mise en plan2", "NOTE", 0.09865654965777, 0.2036222951123, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail169@Vue de mise en plan2", "NOTE", 0.09865654965777, 0.2027844315091, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Vue de mise en plan2", "DRAWINGVIEW", 0.09966198598154, 0.2130901538277, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail174@Vue de mise en plan2", "NOTE", 0.1024269358719, 0.1930652137127, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail164@Vue de mise en plan2", "NOTE", 0.1897908367359, 0.1434667644491, 0, False, 0, Nothing)
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 1.11
Part.ActiveView().ZoomByFactor 1.4
Part.ActiveView().ZoomByFactor 1.23
Part.ActiveView().ZoomByFactor 1.22
Part.ActiveView().ZoomByFactor 1.04
Part.ActiveView().ZoomByFactor 0.578035
Part.ActiveView().ZoomByFactor 0.578035
Part.ActiveView().ZoomByFactor 0.617284
Part.ActiveView().ZoomByFactor 0.943396
Part.ActiveView().ZoomByFactor 0.75188
Part.ActiveView().ZoomByFactor 0.877193
Part.ActiveView().ZoomByFactor 0.934579
Part.ActiveView().ZoomByFactor 0.934579
Part.ActiveView().ZoomByFactor 0.909091
Part.ActiveView().ZoomByFactor 0.925926
Part.ActiveView().ZoomByFactor 0.943396
Part.ActiveView().ZoomByFactor 0.925926
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.934579
Part.ActiveView().ZoomByFactor 0.925926
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1.02
Part.ActiveView().ZoomByFactor 1
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1
Part.ActiveView().ZoomByFactor 0.943396
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.970874
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.961538
Part.ActiveView().ZoomByFactor 0.961538
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.952381
Part.ActiveView().ZoomByFactor 0.970874
Part.ActiveView().ZoomByFactor 0.943396
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.943396
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.952381
Part.ActiveView().ZoomByFactor 0.970874
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.952381
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1.02
Part.ActiveView().ZoomByFactor 1
boolstatus = Part.Extension.SelectByID("Objet de détail171@Vue de mise en plan2", "NOTE", 0.02518847738422, 0.2655938875509, 0, False, 0, Nothing)
Part.EditBalloonProperties 0, 2, 0, "1", 2, "1" 
Part.EditBalloonProperties 0, 2, 0, "12", 2, "1" 
boolstatus = Part.Extension.SelectByID("Vue de mise en plan2", "DRAWINGVIEW", 0.2215790663659, 0.1462813254277, 0, False, 0, Nothing)
Part.ViewZoomTo2 0.23161, 0.142058, -9.70821e-016, 0.303408, 0.0961278, -6.50093e-016
boolstatus = Part.Extension.SelectByID("Objet de détail185@Vue de mise en plan2", "NOTE", 0.09661457097012, 0.1904097890782, 0, False, 0, Nothing)
Part.ViewZoomtofit2
' MSGBOX
' Certains des modčles référencées dans ce document ont été modifiés. Ils doivent ętre enregistrés lorsque le document est enregistré.
' 		Enregistrer le document et les modčles référencés maintenant ?

Part.Save2 FALSE
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Vue de mise en plan2", "DRAWINGVIEW", 0.1796954555951, 0.09159535674904, 0, False, 0, Nothing)
Part.ClearSelection2 True
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "Sous-ensemble treuil et support - Feuille1"
Set Part = swApp.OpenDoc6 ("E:\Maquette monte-charge\Dessins techniques\Sous-ensemble\Sous-ensemble treuil et support.SLDDRW", 3, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Sous-ensemble treuil et support - Feuille1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = Nothing
swApp.CloseDoc "Sous-ensemble treuil et support - Feuille1"
Set Part = swApp.OpenDoc6 ("E:\Maquette monte-charge\Dessins techniques\Sous-ensemble\Sous-ensemble fin de couse haut.SLDDRW", 3, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Sous-ensemble fin de couse haut - Feuille1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("Vue de mise en plan1", "DRAWINGVIEW", 0.09972492537313, 0.1442297014925, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.06405537313433, 0.05580940298507, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.06405537313433, 0.06083328358209, 0, False, 0, Nothing)
Part.EditTemplate
Part.EditSketch
Part.ClearSelection2 True
Part.ViewZoomTo2 -0.0087909, 0.111072, -7.96352e-016, 0.202212, -0.00598433, 2.1049e-017
boolstatus = Part.Extension.SelectByID("Objet de détail54@Fond de plan1", "NOTE", 0.1537829014367, 0.0746011695708, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail54@Fond de plan1", "NOTE", 0.1525880512291, 0.0743024570189, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail55@Fond de plan1", "NOTE", 0.1534841888848, 0.0835625461278, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail55@Fond de plan1", "NOTE", 0.1534841888848, 0.0838612586797, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.05072707103122, 0.09939431137849, 0, False, 0, Nothing)
Part.EditSheet
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
Part.ViewZoomtofit2
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "Sous-ensemble fin de couse haut - Feuille1"
Set Part = swApp.OpenDoc6 ("E:\Maquette monte-charge\Dessins techniques\Sous-ensemble\Sous-ensemble treuil et support.SLDDRW", 3, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Sous-ensemble treuil et support - Feuille1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = Nothing
swApp.CloseDoc "Sous-ensemble treuil et support - Feuille1"
Set Part = swApp.OpenDoc6 ("E:\Maquette monte-charge\Dessins techniques\Sous-ensemble\Sous-ensemble fin de couse bas.SLDDRW", 3, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Sous-ensemble fin de couse bas - Feuille1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.07661507462687, 0.1045410447761, 0, False, 0, Nothing)
Part.EditTemplate
Part.EditSketch
Part.ClearSelection2 True
Part.ViewZoomTo2 -0.00276224, 0.10856, -7.78811e-016, 0.23336, -0.0200512, 1.19277e-016
boolstatus = Part.Extension.SelectByID("Objet de détail54@Fond de plan1", "NOTE", 0.1537137153007, 0.07440136921426, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail54@Fond de plan1", "NOTE", 0.1527188534853, 0.07440136921426, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail55@Fond de plan1", "NOTE", 0.1529675689391, 0.08410127191467, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail55@Fond de plan1", "NOTE", 0.1529675689391, 0.08410127191467, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.1101885108758, 0.05649385653659, 0, False, 0, Nothing)
Part.EditSheet
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "Sous-ensemble fin de couse bas - Feuille1"
Set Part = swApp.OpenDoc6 ("E:\Maquette monte-charge\Dessins techniques\Sous-ensemble\Sous-ensemble contrepoids.SLDDRW", 3, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Sous-ensemble contrepoids - Feuille1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.06175115075989, 0.09824186089841, 0, False, 0, Nothing)
Part.EditTemplate
Part.EditSketch
Part.ClearSelection2 True
Part.ViewZoomTo2 0.00073271, 0.0998268, -4.59292e-016, 0.194882, 0.0233556, 7.4704e-017
boolstatus = Part.Extension.SelectByID("Objet de détail49@Fond de plan1", "NOTE", 0.04029739977833, 0.08462347563436, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.04340605394765, 0.07642793282431, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail48@Fond de plan1", "NOTE", 0.0408626096273, 0.07529751312637, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail49@Fond de plan1", "NOTE", 0.07618822518783, 0.07473230327741, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail55@Fond de plan1", "NOTE", 0.1589914680617, 0.08490608055884, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail54@Fond de plan1", "NOTE", 0.15446978927, 0.07501490820189, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail55@Fond de plan1", "NOTE", 0.1671870108718, 0.07529751312637, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail45@Fond de plan1", "NOTE", 0.02447152400721, 0.07501490820189, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection2 True
Part.EditUndo 1
Part.EditUndo 1
boolstatus = Part.Extension.SelectByID("Objet de détail55@Fond de plan1", "NOTE", 0.1702956650411, 0.07247146388153, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail45@Fond de plan1", "NOTE", 0.02673236340308, 0.07444969835292, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail45@Fond de plan1", "NOTE", 0.02447152400721, 0.07444969835292, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail46@Fond de plan1", "NOTE", 0.02531933878066, 0.08490608055884, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail46@Fond de plan1", "NOTE", 0.02447152400721, 0.08462347563436, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail28@Fond de plan1", "NOTE", 0.01571077134819, 0.05551516841248, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail41@Fond de plan1", "NOTE", 0.01542816642371, 0.06484113092046, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.004406574368824, 0.09592767261373, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail28@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail41@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail42@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail43@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
Part.EditUndo 1
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.005819598991245, 0.09762330216063, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail41@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail42@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail43@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail28@Fond de plan1", "NOTE", 0.02, 0.05410214379005, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail43@Fond de plan1", "NOTE", 0.02, 0.08349305593642, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.03068883234586, 0.09621027753821, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.01910203044201, 0.09507985784027, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail44@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail45@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail46@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.01910203044201, 0.10073195633, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail29@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail44@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail45@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail46@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.0006479288731829, 0.0973689577286, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line104", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line115", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail43@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail46@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail48@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail52@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail54@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line114", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line115", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail42@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail45@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail49@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail51@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail55@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line113", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line114", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail41@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail44@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail47@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail50@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail53@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line103", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line113", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail28@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail29@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail30@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail31@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail32@Fond de plan1", "NOTE", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.07118611802446, 0.1295859191198, 0, False, 0, Nothing)
Part.EditSheet
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Vue de mise en plan1", "DRAWINGVIEW", 0.07661213257456, 0.1258555341166, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail60@Vue de mise en plan1", "NOTE", 0.1753291867697, 0.2494982345117, 0, False, 0, Nothing)
Part.EditBalloonProperties 0, 2, 0, "3", 2, "1" 
boolstatus = Part.Extension.SelectByID("Objet de détail58@Vue de mise en plan1", "NOTE", 0.03751603022786, 0.2569728463919, 0, False, 0, Nothing)
Part.EditBalloonProperties 0, 2, 0, "4", 2, "2" 
Part.ClearSelection2 True
Part.Save2 FALSE
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Objet de détail60@Vue de mise en plan1", "NOTE", 0.1753291867697, 0.2480967447841, 0, False, 0, Nothing)
Part.ViewZoomTo2 0.00948624, 0.278462, -1.80073e-015, 0.261754, 0.22614, -1.43536e-015
Part.ViewZoomTo2 0.0263776, 0.266439, -8.71815e-016, 0.251106, 0.213929, -5.0514e-016
boolstatus = Part.Extension.SelectByID("Objet de détail60@Vue de mise en plan1", "NOTE", 0.1779901578785, 0.257692632763, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail58@Vue de mise en plan1", "NOTE", 0.03814341877698, 0.2572153401381, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail61@Vue de mise en plan1", "NOTE", 0.03599560196484, 0.1550747184052, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.03241590727794, 0.1925421894614, 0, False, 0, Nothing)
Part.Save2 FALSE
Part.EditSketch
Part.ClearSelection2 True
Set Part = Nothing
swApp.CloseDoc "Sous-ensemble contrepoids - Feuille1"
Set Part = swApp.OpenDoc6 ("E:\Maquette monte-charge\Dessins techniques\Sous-ensemble\Sous-ensemble fin de couse haut.SLDDRW", 3, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Sous-ensemble fin de couse haut - Feuille1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("Objet de détail59@Vue de mise en plan1", "NOTE", 0.1459446268657, 0.1231294029851, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail57@Vue de mise en plan1", "NOTE", 0.179102238806, 0.1763825373134, 0, False, 0, Nothing)
Part.ViewZoomTo2 0.120323, 0.213559, -1.51202e-015, 0.196183, 0.106551, -7.64779e-016
boolstatus = Part.Extension.SelectByID("Objet de détail57@Vue de mise en plan1", "NOTE", 0.1671587712915, 0.1756629188912, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail58@Vue de mise en plan1", "NOTE", 0.02932527028168, 0.2137170355318, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail56@Vue de mise en plan1", "NOTE", 0.05680466387363, 0.265038844152, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail56@Vue de mise en plan1", "NOTE", 0.1089346899525, 0.2310937108914, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.09883197172013, 0.2500868211682, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail56@Vue de mise en plan1", "NOTE", 0.03296224884532, 0.2569566695662, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.0584210987908, 0.2618059743177, 0, False, 0, Nothing)
Part.Save2 FALSE
Part.ClearSelection2 True
Set Part = Nothing
swApp.CloseDoc "Sous-ensemble fin de couse haut - Feuille1"
Set Part = swApp.OpenDoc6 ("E:\Maquette monte-charge\Dessins techniques\Sous-ensemble\Sous-ensemble fin de couse bas.SLDDRW", 3, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Sous-ensemble fin de couse bas - Feuille1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("Objet de détail63@Vue de mise en plan2", "NOTE", 0.1488706745976, 0.2316320335431, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Objet de détail62@Vue de mise en plan2", "NOTE", 0.07026028550782, 0.1111248986197, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.06205370642701, 0.104646020398, 0, False, 0, Nothing)
Part.Save2 FALSE
Part.ClearSelection2 True
Set Part = Nothing
swApp.CloseDoc "Sous-ensemble fin de couse bas - Feuille1"
Set Part = swApp.OpenDoc6 ("E:\Maquette monte-charge\Dessins techniques\Sous-ensemble\Sous-ensemble câblage et amortisseur.SLDDRW", 3, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Sous-ensemble câblage et amortisseur - Feuille1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "Sous-ensemble câblage et amortisseur - Feuille1"
Set Part = swApp.OpenDoc6 ("E:\Maquette monte-charge\Dessins techniques\Sous-ensemble\Sous-ensemble cabine.SLDDRW", 3, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Sous-ensemble cabine - Feuille1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.1833059116323, 0.1489883667202, 0, False, 0, Nothing)
Part.EditSheet
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
swApp.LoadFile2 "E:\Maquette monte-charge\Assemblages\Cabine.SLDASM", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("E:\Maquette monte-charge\Assemblages\Cabine.SLDASM", 2, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Cabine.SLDASM")
boolstatus = Part.Extension.SelectByID("Défaut", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Défaut", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Défaut", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Défaut", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Défaut", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Défaut", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Défaut", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
Set Part = swApp.ActivateDoc ("Sous-ensemble cabine - Feuille1")
swApp.LoadFile2 "E:\Maquette monte-charge\Assemblages\Cabine.SLDASM", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("E:\Maquette monte-charge\Assemblages\Cabine.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Cabine.SLDASM")
Set Part = swApp.ActivateDoc ("Sous-ensemble cabine - Feuille1")
swApp.ActiveDoc.ActiveView.FrameLeft = -5
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameLeft = -17
swApp.ActiveDoc.ActiveView.FrameTop = 1
swApp.ActiveDoc.ActiveView.FrameLeft = -28
swApp.ActiveDoc.ActiveView.FrameTop = 3
swApp.ActiveDoc.ActiveView.FrameLeft = -49
swApp.ActiveDoc.ActiveView.FrameTop = 5
swApp.ActiveDoc.ActiveView.FrameLeft = -54
swApp.ActiveDoc.ActiveView.FrameTop = 5
swApp.ActiveDoc.ActiveView.FrameLeft = -61
swApp.ActiveDoc.ActiveView.FrameTop = 6
swApp.ActiveDoc.ActiveView.FrameLeft = -67
swApp.ActiveDoc.ActiveView.FrameTop = 7
swApp.ActiveDoc.ActiveView.FrameLeft = -72
swApp.ActiveDoc.ActiveView.FrameTop = 7
swApp.ActiveDoc.ActiveView.FrameLeft = -77
swApp.ActiveDoc.ActiveView.FrameTop = 7
swApp.ActiveDoc.ActiveView.FrameLeft = -81
swApp.ActiveDoc.ActiveView.FrameTop = 7
swApp.ActiveDoc.ActiveView.FrameLeft = -85
swApp.ActiveDoc.ActiveView.FrameTop = 7
swApp.ActiveDoc.ActiveView.FrameLeft = -87
swApp.ActiveDoc.ActiveView.FrameTop = 7
swApp.ActiveDoc.ActiveView.FrameLeft = -90
swApp.ActiveDoc.ActiveView.FrameTop = 7
swApp.ActiveDoc.ActiveView.FrameLeft = -92
swApp.ActiveDoc.ActiveView.FrameTop = 7
swApp.ActiveDoc.ActiveView.FrameLeft = -93
swApp.ActiveDoc.ActiveView.FrameTop = 7
swApp.ActiveDoc.ActiveView.FrameLeft = -95
swApp.ActiveDoc.ActiveView.FrameTop = 7
swApp.ActiveDoc.ActiveView.FrameLeft = -96
swApp.ActiveDoc.ActiveView.FrameTop = 7
swApp.ActiveDoc.ActiveView.FrameLeft = -96
swApp.ActiveDoc.ActiveView.FrameTop = 6
swApp.ActiveDoc.ActiveView.FrameLeft = -96
swApp.ActiveDoc.ActiveView.FrameTop = 5
swApp.ActiveDoc.ActiveView.FrameLeft = -95
swApp.ActiveDoc.ActiveView.FrameTop = 4
swApp.ActiveDoc.ActiveView.FrameLeft = -94
swApp.ActiveDoc.ActiveView.FrameTop = 4
swApp.ActiveDoc.ActiveView.FrameLeft = -92
swApp.ActiveDoc.ActiveView.FrameTop = 4
swApp.ActiveDoc.ActiveView.FrameLeft = -90
swApp.ActiveDoc.ActiveView.FrameTop = 4
swApp.ActiveDoc.ActiveView.FrameLeft = -87
swApp.ActiveDoc.ActiveView.FrameTop = 4
swApp.ActiveDoc.ActiveView.FrameLeft = -85
swApp.ActiveDoc.ActiveView.FrameTop = 4
swApp.ActiveDoc.ActiveView.FrameLeft = -82
swApp.ActiveDoc.ActiveView.FrameTop = 4
swApp.ActiveDoc.ActiveView.FrameLeft = -77
swApp.ActiveDoc.ActiveView.FrameTop = 3
swApp.ActiveDoc.ActiveView.FrameLeft = -74
swApp.ActiveDoc.ActiveView.FrameTop = 3
swApp.ActiveDoc.ActiveView.FrameLeft = -72
swApp.ActiveDoc.ActiveView.FrameTop = 3
swApp.ActiveDoc.ActiveView.FrameLeft = -69
swApp.ActiveDoc.ActiveView.FrameTop = 3
swApp.ActiveDoc.ActiveView.FrameLeft = -64
swApp.ActiveDoc.ActiveView.FrameTop = 3
swApp.ActiveDoc.ActiveView.FrameLeft = -63
swApp.ActiveDoc.ActiveView.FrameTop = 2
swApp.ActiveDoc.ActiveView.FrameLeft = -62
swApp.ActiveDoc.ActiveView.FrameTop = 2
swApp.ActiveDoc.ActiveView.FrameLeft = -61
swApp.ActiveDoc.ActiveView.FrameTop = 2
swApp.ActiveDoc.ActiveView.FrameLeft = -60
swApp.ActiveDoc.ActiveView.FrameTop = 2
swApp.ActiveDoc.ActiveView.FrameLeft = -58
swApp.ActiveDoc.ActiveView.FrameTop = 3
swApp.ActiveDoc.ActiveView.FrameLeft = -56
swApp.ActiveDoc.ActiveView.FrameTop = 3
swApp.ActiveDoc.ActiveView.FrameLeft = -55
swApp.ActiveDoc.ActiveView.FrameTop = 3
swApp.ActiveDoc.ActiveView.FrameLeft = -54
swApp.ActiveDoc.ActiveView.FrameTop = 4
swApp.ActiveDoc.ActiveView.FrameLeft = -52
swApp.ActiveDoc.ActiveView.FrameTop = 4
swApp.ActiveDoc.ActiveView.FrameLeft = -51
swApp.ActiveDoc.ActiveView.FrameTop = 4
swApp.ActiveDoc.ActiveView.FrameLeft = -50
swApp.ActiveDoc.ActiveView.FrameTop = 4
swApp.ActiveDoc.ActiveView.FrameLeft = -49
swApp.ActiveDoc.ActiveView.FrameTop = 4
swApp.ActiveDoc.ActiveView.FrameLeft = -49
swApp.ActiveDoc.ActiveView.FrameTop = 4
Set Part = swApp.ActivateDoc ("Cabine.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ShowNamedView2 "*Isométrique", 7
Part.ShowNamedView2 "*Trimétrique", 8
boolstatus = Part.Extension.SelectByID("Cabine sans chariot", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ShowConfiguration "Cabine sans chariot"
boolstatus = Part.Extension.SelectByID("Défaut@Cabine.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ShowConfiguration "Défaut"
boolstatus = Part.Extension.SelectByID("Vue éclatée1@Cabine.SLDASM", "EXPLODEDVIEWS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Défaut", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sol de cabine-1@Cabine", "COMPONENT", 0.02408280938999, -0.03191526693195, 0.00200000000001, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.01036684972269, -0.03870748092697, 0.00200000000001, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Ecrou H, M3-3@Cabine", "COMPONENT", 0.03675, -0.06503960921028, 0.006954379906938, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Ecrou H, M3-3@Cabine", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Etape d'éclatement1", "EXPLODESTEPS", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.03142874850442, -0.009772964622073, 0.00200000000001, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Rondelle plate M8-3@Cabine", "COMPONENT", 0.03389333695435, -0.06327028596195, 0.004856336557054, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Rondelle plate M8-3@Cabine", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Etape d'éclatement2", "EXPLODESTEPS", 0, 0, 0, True, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0.00938456, 0.0109409
Part.ActiveView().RotateAboutCenter 0.0469228, 0.185995
Part.ActiveView().RotateAboutCenter 0.0750765, 0.229758
Part.ActiveView().RotateAboutCenter 0.00938456, 0.0984678
Part.ActiveView().RotateAboutCenter 0, 0.0547043
Part.ActiveView().RotateAboutCenter 0, 0.0218817
Part.ActiveView().RotateAboutCenter 0, 0.0656452
Part.ActiveView().RotateAboutCenter 0, 0.0984678
Part.ActiveView().RotateAboutCenter 0, 0.0547043
Part.ActiveView().RotateAboutCenter -0.00938456, 0
Part.ActiveView().RotateAboutCenter 0, -0.0109409
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.02428751736875, -0.01000000000008, 0.114665757962, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Chariot cabine-1@Cabine/Vis C S, M3-25-2@Chariot cabine", "COMPONENT", 0.04355993301623, -0.01181743114855, 0.1171453550989, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Chariot cabine-1@Cabine", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Etape d'éclatement3", "EXPLODESTEPS", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Chariot cabine-1@Cabine", "COMPONENT", 0, 0, 0, True, 0, Nothing)
